#!/usr/bin/perl
# foreach2.pl
use warnings;

@array = ("one", "two", "three", "four");
foreach (@array) {
   print "The value of the iterator is now $_ \n";
}